home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-3734 / data / street.mcl < prev    next >
Text File  |  1987-04-21  |  2KB  |  131 lines
  1. % UFO flies down street
  2. % best as a CFF
  3. % speed up by deleting sides and back of house...
  4.  
  5. type house1 "\data\house.3d";
  6. type road1 "\data\road.3d";
  7. type pointy "\data\pointy.3d";
  8.  
  9. prefs "\data\house.prf";
  10. palette 1;
  11.  
  12. object ufo type pointy at [0,-500,2000] looking [0,0,0];
  13.  
  14. object lhouse1 type house1 at [-300,-20,456] looking [90*16,0,0];
  15. object rhouse1 type house1 at [300,-20,456] looking [270*16,0,0];
  16. object road_sec_1 type road1 at [0,300,456] looking [90*16,0,0];
  17. object lhouse2 type house1 at [-300,-20,856] looking [90*16,0,0];
  18. object rhouse2 type house1 at [300,-20,856] looking [270*16,0,0];
  19. object road_sec_2 type road1 at [0,300,856] looking [90*16,0,0];
  20. object lhouse3 type house1 at [-300,-20,1256] looking [90*16,0,0];
  21. object rhouse3 type house1 at [300,-20,1256] looking [270*16,0,0];
  22. object road_sec_3 type road1 at [0,300,1256] looking [90*16,0,0];
  23. object lhouse4 type house1 at [-300,-20,1656] looking [90*16,0,0];
  24. object rhouse4 type house1 at [300,-20,1656] looking [270*16,0,0];
  25. object road_sec_4 type road1 at [0,300,1656] looking [90*16,0,0];
  26.  
  27.  
  28. camera camera1 at [0,0,0] looking [0,0,0] active;
  29. lightsource ufol1 at [0,0,1056];
  30.  
  31. ufo.main[]{
  32.   ma=0; mb=90*16; mc=0;
  33.   sp=15;
  34.   rotate speed [64,32,16];
  35.   frame;
  36.   
  37.   while [y<-100]{
  38.     moveit[sp];
  39.     frame;
  40.   }
  41.   
  42.   while [mb<180*16] {
  43.     moveit[sp];
  44.     mb=mb+160;
  45.     frame;
  46.   }
  47.   
  48.   while [sp<30] {
  49.     moveit[sp];
  50.     sp=sp+1;
  51.     frame;
  52.   }
  53.  
  54.   while [z>600] {
  55.     moveit[sp];
  56.     frame;
  57.   }
  58.  
  59.   while [mb<270*16] {
  60.     moveit[sp];
  61.     mb=mb+160;
  62.     frame;
  63.   }
  64.  
  65.   while [y>-1000] {
  66.     moveit[sp];
  67.     frame;
  68.   }
  69.   
  70.   endsim;
  71. }
  72.  
  73.  
  74.  
  75. ufol1.main[]{
  76.   rotate to [ufo.ma, ufo.mb, ufo.mc];
  77.   move to [ufo.x,ufo.y,ufo.z] forward [150];
  78.   frame;
  79. }
  80.  
  81.   
  82. moveit[speed]{
  83.   sa=a; sb=b; sc=c;
  84.   a=ma; b=mb; c=mc;
  85.   move forward [speed];
  86.   ma=a; mb=b; mc=c;
  87.   a=sa; b=sb; c=sc;
  88. }
  89.   
  90.  
  91. lhouse1.main[]{
  92.   wait;
  93. }
  94. rhouse1.main[]{
  95.   wait;
  96. }
  97. road_sec_1.main[]{
  98.   wait;
  99. }
  100. lhouse2.main[]{
  101.   wait;
  102. }
  103. rhouse2.main[]{
  104.   wait;
  105. }
  106. road_sec_2.main[]{
  107.   wait;
  108. }
  109. lhouse3.main[]{
  110.   wait;
  111. }
  112. rhouse3.main[]{
  113.   wait;
  114. }
  115. road_sec_3.main[]{
  116.   wait;
  117. }
  118. lhouse4.main[]{
  119.   wait;
  120. }
  121. rhouse4.main[]{
  122.   wait;
  123. }
  124. road_sec_4.main[]{
  125.   wait;
  126. }
  127.  
  128. camera1.main[]{
  129.   wait;
  130. }
  131.